home *** CD-ROM | disk | FTP | other *** search
/ How Many Bugs in a Box / How Many Bugs in a Box.cdr / bugs / act1 / 00333.ls < prev    next >
Encoding:
Text File  |  1995-04-03  |  294 b   |  11 lines
  1. on highlight
  2.   global numberbugs
  3.   repeat with xxx = 1 to 10
  4.     if numberbugs = xxx then
  5.       set the castNum of sprite (37 + xxx) to the number of cast string(xxx & "a")
  6.       next repeat
  7.     end if
  8.     set the castNum of sprite (37 + xxx) to the number of cast string(xxx)
  9.   end repeat
  10. end
  11.